home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / A-Monthly Disks / (c)abl.d64 / boot (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  4KB  |  126 lines
  1. 0 T$="010000":IFD=1THENCLR:GOTO35
  2. 2 POKE 53280,0:POKE53281,0:PRINTCHR$(14);"[159][147][205]1 [211]YSTEM [158][194][207][207][212][159] FOR [158][214]ERSION 2.0[159]":PRINT
  3. 3 PRINT"(.....)[145]"
  4. 5 IFJ=0THENGOSUB500:GOSUB300
  5. 10 J=J+1:IFJ=1THENPRINT"(DBI..)":LOAD"DBI",8,1
  6. 20 IFJ=2THENPOKE53281,0:PRINT"(DBML.)":LOAD"0:DBML",8,1
  7. 30 POKE53281,0:IFJ=3THENPRINT"(FKEYS)":GOSUB60:LOAD"0:TC1M1",8,1
  8. 32 OPEN5,2,0,CHR$(6):PRINT"([201]NIT.) ";:A$="ATE0Q0X1S0=0H0M0":A1%=1:A2%=2:SYS52410
  9. 33 SYS52310
  10. 35 GOSUB200:POKE692,250:POKE693,255
  11. 40 PRINT"[147]LOAD"CHR$(34)"C/M1 V2.0"CHR$(34)",8":PRINT"POKE198,0:RUN"
  12. 50 PRINT"";:FORK=631TO635:POKEK,13:NEXTK:POKE198,4:NEW
  13. 60 OPEN4,8,4,"FKEY,S,R":FORK=1TO8:INPUT#4,A$(K):NEXTK
  14. 70 CLOSE4:IFST=66THENPRINT"[206]O [198][203][197][217][211] FILE.":OPEN1,8,15,"I0":CLOSE1:RETURN
  15. 80 LC=44288:FORZ=1TO8:PRINTZ;
  16. 90 LL=0:FORK=LCTOLC+30
  17. 100 A=ASC(MID$(A$(Z)+CHR$(0),LL+1,1)+CHR$(0)):IFA=92THENA=13
  18. 110 IFA=94THENA=34
  19. 115 POKELC+LL,A:LL=LL+1:NEXTK:LC=LC+30:NEXTZ
  20. 120 PRINT"":RETURN
  21. 130 A$="  "+"":SYS52330:A$=A$+"       ":SYS52330:RETURN
  22. 200 A$="":FORK=1TO126:A$=A$+" ":NEXTK:A1%=1:A2%=2
  23. 201 FORK=0TO15:A1%=K:SYS52480:NEXTK
  24. 205 GOSUB130:PRINT"[147]":M=0:GOSUB810:PRINT"[159][196]ATE: "A$
  25. 206 PRINT"[159][195]HOOSE:":PRINT"[183][183][183][183][183][183][183]":PRINT"  [159] 1  [146][159]  [204]OAD [194][194][211]"
  26. 211 PRINT"  [159] 2  [146][159]  [196]ATE AND [212]IME"
  27. 213 PRINT"[160] [159] 3  [146][159]  [211]YSTEM [195]HECK [210]EPORT"
  28. 215 PRINT"  [159] 4  [146][159]  [196]EV: 8 1581 [210]ESET [196]RIVE"
  29. 219 PRINT"[183][183][183][183][183][183][183] [183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183] "
  30. 220 FORK=1TO3E3:GETA$:IFA$=""THENNEXTK:RETURN
  31. 230 IFA$="1"ORA$=CHR$(13)THENRETURN
  32. 255 IFA$="2"THENPRINT:PRINT"[195]URRRENT:":PRINT:GOSUB300:GOTO200
  33. 257 IFA$="3"THENGOSUB800:GOTO200
  34. 258 IFA$="4"THENOPEN15,8,15,"U9":CLOSE15:GOTO200
  35. 259 GOTO205
  36. 300 POKE53280,0:PRINT"("PEEK(820)")   [196]AY "
  37. 305 PRINT"("PEEK(821)")  [205]ONTH "
  38. 310 PRINT"("PEEK(822)")  [217]EAR "
  39. 315 C=56328:PRINT"[212]IME 01:00:00 [193]M [207]N [210]ESET.":FORX=1TO500:NEXT
  40. 316 GOSUB 700
  41. 320 IFT$=""THENRETURN
  42. 325 H=VAL(LEFT$(T$,2))
  43. 330 M=VAL(MID$(T$,3,2)):S=VAL(RIGHT$(T$,2)):IFH>23ORS>59ORM>59THEN315
  44. 335 IFH>11THENH=H+68
  45. 340 POKEC+7,PEEK(C+7)AND127:POKEC+6,PEEK(C+6)OR128
  46. 345 POKEC+3,16*INT(H/10)+H-INT(H/10)*10:REM   'HA.
  47. 350 POKEC+2,16*INT(M/10)+M-INT(M/10)*10
  48. 355 POKEC+1,16*INT(S/10)+S-INT(S/10)*10
  49. 360 POKEC,0:RETURN
  50. 500 CLOSE2:OPEN2,8,2,"@0:[204][207][199],S,R":DT$=""
  51. 510 GET#2,A$,A$,A$,A$,A$,A$
  52. 520 FORT=1TO 9:GET#2,A$:DT$=DT$+A$:NEXTT:CLOSE2:CLOSE15
  53. 521 OPEN15,8,15:INPUT#15,A$,A$:CLOSE15:IFA$<>"OK"THENPRINT"* [206]O [204][207][199][146] *":RETURN
  54. 530 PRINT"        "DT$
  55. 540 MT$="[202]AN[198]EB[205]AR[193]PR[205]AY[202]UN[202]UL[193]UG[211]EP[207]CT[206]OV[196]EC"
  56. 550 DA=VAL(LEFT$(DT$,2))
  57. 560 YR=VAL(RIGHT$(DT$,2))
  58. 570 FORA=1TOLEN(MT$)STEP3
  59. 580 IFMID$(DT$,4,3)=MID$(MT$,A,3)THENMO=((A-1)/3)+1
  60. 590 NEXT
  61. 600 POKE 820,DA:POKE821,MO:POKE822,YR
  62. 610 PRINT"       "DA;MO;YR" - [198]ROM [204][207][199] [197]NTRY.":PRINT:RETURN
  63. 700 PRINT"[158][208]RESS A KEY TO [195]HANGE [212]IME...[159]"
  64. 710 K=0
  65. 720 K=K+1:IFK>700THEN RETURN
  66. 730 GETA$:IFA$=""THEN720
  67. 735 PRINT"[159]01 02 03 04 05 06 07 08 09 10 11 12 [193][205]"
  68. 737 PRINT"13 14 15 16 17 18 19 20 21 22 23 00 [208][205]"
  69. 740 PRINT"[197]NTER [195]ORRECT [212]IME ([200][200][205][205][211][211]):":PRINT"                    000000[157][157][157][157][157][157][157][157]";
  70. 750 INPUTT$
  71. 760 PRINT"[##]  [201]NPUT [196]AY   ";PEEK(820)"[157][157][157][157][157][157]";:INPUTDA:POKE820,DA
  72. 767 PRINT"[1-12]    [205]ONTH   ";PEEK(821)"[157][157][157][157][157][157]";:INPUTMO:POKE821,MO
  73. 770 PRINT"[##]       [217]EAR   ";PEEK(822)"[157][157][157][157][157][157]";:INPUTYR:POKE822,YR:PRINT"[147]":RETURN
  74. 800 GOSUB 805:GOTO 900
  75. 805 PRINT"[147][211]YSTEM CHECK":PRINT:M=0
  76. 810 K$="[196]EVICE: ":FORDV=8TO11:OPEN15,DV,15:CLOSE15
  77. 820 IFST=-128THEN840
  78. 830 K$=K$+" [158]"+STR$(DV)+"[158]  [146] ":M=M+1
  79. 840 NEXT
  80. 850 IFM=0ORM>1THENPRINT"[212]HERE ARE"M"DRIVES ON-LINE.":GOTO 860
  81. 855 IFM=1THENPRINT"[212]HERE IS 1 DRIVE ON-LINE."
  82. 860 PRINT:PRINTK$:PRINT:RETURN
  83. 900 GOTO 1000
  84. 910 REM F$ FILE CHECK
  85. 920 OPEN2,8,2,F$+",S,R":CLOSE2
  86. 921 F$=F$+" [159]...................."
  87. 930 OPEN15,8,15:INPUT#15,A,A$:CLOSE15
  88. 940 IFATHENPRINT""+LEFT$(F$,15)+" [[159][206][194]][159] ";:RETURN
  89. 950 PRINTLEFT$(F$,15)+" [[159][207]K][159] ";:RETURN
  90. 1000 PRINT"[159][211]YSTEM SUPPORT FILES STATUS:":PRINT"[201]F [210]EQUIRED .. [[159][206][194]][159]";
  91. 1010 PRINT" [201]F [208]RESENT ... [[159][207]K][159]":PRINT
  92. 1020 F$="/HOUR":GOSUB910
  93. 1030 F$="/EXTRAS":GOSUB910
  94. 1040 F$="/NODES":GOSUB910
  95. 1050 F$="[205][197][195][200]":GOSUB910
  96. 1060 F$="[198][210][197][209]":GOSUB910
  97. 1070 F$="[196][193][201][204][217]":GOSUB910
  98. 1080 F$="[206][197][215][213][211][197][210]":GOSUB910
  99. 1090 F$="[194][217][197]":GOSUB910
  100. 1100 F$="[194][217][197]1":GOSUB910
  101. 1110 F$="[206][205][211][199]":GOSUB910
  102. 1120 F$="[201][206][212][210][207]":GOSUB910
  103. 1130 F$="[201][206][212][210][207]2":GOSUB910
  104. 1140 F$="-[210][206][196]":GOSUB910
  105. 1150 F$="+[210][206][196]":GOSUB910
  106. 1160 PRINT"[211]UPPORTED [207]PTIONAL:":F$="[200][197][204][208][211][195][193][206]":GOSUB910
  107. 1170 F$="[200][197][204][208][206][207][196][197][211]":GOSUB910
  108. 1175 F$="[200][197][204][208][206][197][212]":GOSUB910
  109. 1180 F$="[200][197][204][208][206][197][215]":GOSUB910
  110. 1190 PRINT:PRINT"[208]RESS A KEY."
  111. 1200 GETA$:IFA$=""THEN1200
  112. 1210 PRINT"[145]             ":PRINT"[145][211]YSTEM [200]ELPFILE [204]IBRARY":PRINT
  113. 1220 F$="[200][197][204][208]":GOSUB910
  114. 1230 F$="[200][197][204][208][194]":GOSUB910
  115. 1240 F$="[200][197][204][208][195]":GOSUB910
  116. 1250 F$="[200][197][204][208][197]":GOSUB910
  117. 1260 F$="[200][197][204][208][198]":GOSUB910
  118. 1270 F$="[200][197][204][208][210]":GOSUB910
  119. 1280 F$="[200][197][204][208][211]":GOSUB910
  120. 1290 F$="[200][197][204][208][215]":GOSUB910
  121. 1300 F$="[200][197][204][208][217]":GOSUB910
  122. 1310 OPEN15,8,15,"I":CLOSE15
  123. 1320 PRINT"[196]ONE - [208]RESS A [203]EY."
  124. 1330 GETA$:IFA$=""THEN1330
  125. 1340 RETURN
  126.